url-retrieve-synchronously: Fix timeout when connection hangs

* lisp/url/url.el (url-retrieve-synchronously):
Set url-asynchronous to t when TIMEOUT is non-nil (bug#71295).

diff --git a/lisp/url/url.el b/lisp/url/url.el
index dea251b453bcd01c7486b0f11d40c9a0cf685d42..0ac2917b2131d8d4ee36c1bd5a23523d0405066b 100644 (file)
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -235,7 +235,8 @@ If INHIBIT-COOKIES is non-nil, refuse to store cookies.  If
 TIMEOUT is passed, it should be a number that says (in seconds)
 how long to wait for a response before giving up."
   (url-do-setup)
-  (let* (url-asynchronous
+  (let* (;; Ensure we can stop during connection setup (bug#71295).
+         (url-asynchronous (not (null timeout)))
          data-buffer
          (callback (lambda (&rest _args)
                      (setq data-buffer (current-buffer))